home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / grafik / plotter3d / install-plotter3d < prev    next >
Text File  |  1998-02-03  |  23KB  |  782 lines
  1. ; $VER: Install-Plotter3D 3.20 (03.02.98)
  2.  
  3. ;##############################################################################
  4. ; Localize
  5. ;
  6.  
  7. (if (= @language "deutsch")
  8.   (
  9.     (set #wrongversion
  10.       (cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  11.               "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  12.               "Bitte überprüfen Sie Ihre Konfiguration!"
  13.     ))
  14.  
  15.     (set #update "Update")
  16.     (set #abort  "Abbrechen")
  17.  
  18.     (set #welcome_full (cat
  19.       "\n"
  20.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  21.       "\n"
  22.       "Plotter3D ist Freeware, daß heißt es kann frei  \n"
  23.       "vertrieben werden, solange keinerlei Profit     \n"
  24.       "damit gemacht wird und das Archiv unverändert   \n"
  25.       "bleibt. \n"
  26.       "\n"
  27.       "Neue Versionen können aus dem AmiNet bezogen    \n"
  28.       "werden, Updates oder aktuelle Version können    \n"
  29.       "von meiner Homepage geladen werden:             \n"
  30.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  31.       "\n"
  32.       "                            Sven Steiniger, 1998\n"
  33.     ))
  34.     (set #welcome_beta (cat
  35.       "\n"
  36.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  37.       "\n"
  38.       "Sie installieren gerade eine BETA-Version von   \n"
  39.       "Plotter3D! Bitte legen sie erst eine Kopie Ihres\n"
  40.       "'Plotter3D:'-Verzeichnisses an.                 \n"
  41.       "Falls Sie irgendwelche Fehler finden, schicken  \n"
  42.       "Sie bitte eine EMail mit dem Schlüsselwort      \n"
  43.       "'Plotter3D-Bug' im Subjekt-Feld an folgende     \n"
  44.       "Adresse:                                        \n"
  45.       "   ss37@inf.tu-dresden.de                       \n"
  46.       "\n"
  47.       "                           Danke, Sven Steiniger\n"
  48.     ))
  49.     (set #welcome_update (cat
  50.       "\n"
  51.       "Willkommen zum Plotter3D Installationsprogramm. \n"
  52.       "\n"
  53.       "Sie installieren gerade ein Update zu Plotter3D!\n"
  54.       "Es muß schon eine Vollversion von Plotter3D v3.x\n"
  55.       "auf ihrem System installiert sein. Die aktuelle \n"
  56.       "Version kann aus dem AmiNet geladen werden      \n"
  57.       "(gfx/3d/Plotter3D.lha).                         \n"
  58.       "\n"
  59.       "                            Sven Steiniger, 1998\n"
  60.     ))
  61.     (set #error_beta (cat
  62.       "\n"
  63.       "Dieses Archiv enthält nur ein Update (beta-     \n"
  64.       "Version) von Plotter3D!                         \n"
  65.       "Es scheint, daß noch keine Vollversion auf Ihrem\n"
  66.       "System installiert ist. Darum kann Ich kein     \n"
  67.       "Update durchführen.                             \n"
  68.       "\n"
  69.       "Die neuste Vollversion kann entweder aus dem    \n"
  70.       "AmiNet oder von meiner Homepage                 \n"
  71.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  72.       "bezogen werden.                                 \n"
  73.     ))
  74.  
  75.     (set #installing "Installiere %s...")
  76.     (set #cleaning   "Räume auf...")
  77.  
  78.     (set #cp_main   "Installiere Hauptprogramm 'Plotter3D'.")
  79.     (set #cp_docs   "Installiere Documentation.")
  80.     (set #cp_libs   "Installiere Libraries.")
  81.     (set #cp_locale "Installiere Sprachen.")
  82.     (set #cp_funcs  "Kopiere Beispiel-Funktionen.")
  83.     (set #cp_mats   "Kopiere Beispiel-Materialen.")
  84.     (set #cp_lights "Kopiere Beispiel-Lightquellen.")
  85.     (set #cp_datas  "Kopiere Beispiel-Daten.")
  86.     (set #cp_pals   "Kopiere Standard-Farbpaletten.")
  87.     (set #cp_images "Kopiere Bilder für Werkzeugleiste.")
  88.     (set #cp_prefs  "Kopiere Voreinstellungen.")
  89.     (set #cp_tools  "Kopiere Tools.")
  90.  
  91.     (set #ask_update  "Plotter3D ist schon auf ihrem System installiert.\nSie können diese Installation updaten oder abbrechen.")
  92.     (set #ask_docs    "Bitte wählen Sie die Sprache(n) für die AmigaGuide Dokumentation aus.")
  93.     (set #ask_locale  "Bitte wählen Sie die Sprache(n) aus, die Sie installieren wollen.")
  94.     (set #ask_funcs   "Bitte wählen Sie die zu installierenden Beispiele aus.\n(Empfohlen: Alle)")
  95.     (set #ask_drawers "Bitte wählen Sie die Verzeichnisse aus, die kopiert werden sollen.\n(Empfohlen: Alle)")
  96.     (set #ask_others  "Bitte wählen Sie die Dateien aus, die kopiert werden sollen.")
  97.     (set #ask_clean1  (cat
  98.       "Das Dateiformat für Paletten und     \n"
  99.       "Bilder hat sich geändert. Sollen die \n"
  100.       "alten Dateien gelöscht werden, wenn  \n"
  101.       "sie doppelt vorhanden sind? (sowohl  \n"
  102.       "im neuen als auch im alten Format)   \n"
  103.     ))
  104.     (set #ask_clean2  (cat
  105.       "The tools 'ConvertPalette' und 'ILBM2Chunky'\n"
  106.       "wurden aus dem Archiv entfernt. Sie wurden  \n"
  107.       "durch die Programme 'ChunkyMaster' und      \n"
  108.       "'PalettesMaster' ersetzt.                   \n"
  109.       "Sollen die alten Programme gelöscht werden? \n"
  110.     ))
  111.  
  112.     (set #destdir "Bitte wählen Sie einen Platz für Plotter3D. Ein Verzeichnis namens 'Plotter3D' wird dort automatisch erzeugt.")
  113.     (set #startup "Einige Kommandos werden zu ihrer \"s:user-startup\" Datei gefügt.")
  114.  
  115.     (set #user_abort "Fehler: Abbruch durch den Benutzer.")
  116.     (set #copyerror  "Fehler: Verzeichnis/Datei \"%s\" fehlt!\nEs kann sein das Plotter3D nach der Installation nicht oder nicht korrekt funktioniert.")
  117.  
  118.     (set #answer_yes "Ja")
  119.     (set #answer_no  "Nein")
  120.  
  121.   )
  122.   (
  123.     (set #wrongversion
  124.          (cat "You have an old version of the program 'Installer' "
  125.               "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  126.               "Please check your configuration!"
  127.     ))
  128.  
  129.     (set #update "Update")
  130.     (set #abort  "Abort")
  131.  
  132.     (set #welcome_full (cat
  133.       "\n"
  134.       "Welcome to the Plotter3D installation program.  \n"
  135.       "\n"
  136.       "Plotter3D is Freeware, means it can be spread   \n"
  137.       "freely as long as no profit is made and the     \n"
  138.       "archive is not modified.                        \n"
  139.       "\n"
  140.       "You can get new versions from AmiNet. Updates   \n"
  141.       "and actual beta-versions can be downloaded from \n"
  142.       "my homepage at:                                 \n"
  143.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  144.       "\n"
  145.       "                            Sven Steiniger, 1998\n"
  146.     ))
  147.     (set #welcome_beta (cat
  148.       "\n"
  149.       "Welcome to the Plotter3D installation program.  \n"
  150.       "\n"
  151.       "You are installing an BETA-version of Plotter3D!\n"
  152.       "Please make a copy of your 'Plotter3D:'         \n"
  153.       "directory first.                                \n"
  154.       "If you find any bugs please mail to:            \n"
  155.       "   ss37@inf.tu-dresden.de                       \n"
  156.       "with subject field containing 'Plotter3D-Bug'   \n"
  157.       "\n"
  158.       "                          Thanks, Sven Steiniger\n"
  159.     ))
  160.     (set #welcome_update (cat
  161.       "\n"
  162.       "Welcome to the Plotter3D installation program.  \n"
  163.       "\n"
  164.       "You are installing an Update of Plotter3D!      \n"
  165.       "It needs an fully installed version of          \n"
  166.       "Plotter3D v3.xx. You can get the lastest package\n"
  167.       "from AmiNet (gfx/3d/Plotter3D.lha).             \n"
  168.       "\n"
  169.       "                            Sven Steiniger, 1998\n"
  170.     ))
  171.     (set #error_beta (cat
  172.       "\n"
  173.       "This archive only contains an update (beta-     \n"
  174.       "version) of Plotter3D!                          \n"
  175.       "It seems you have not installed an full version \n"
  176.       "on your system therefore I could not make an    \n"
  177.       "update.                                         \n"
  178.       "\n"
  179.       "You can get the latest full version either from \n"
  180.       "your local AmiNet-site or from my homepage:     \n"
  181.       "   http://www.inf.tu-dresden.de/~ss37           \n"
  182.     ))
  183.  
  184.     (set #installing "Installing %s...")
  185.     (set #cleaning   "Cleaning up...")
  186.  
  187.     (set #cp_main   "Installing main program 'Plotter3D'.")
  188.     (set #cp_docs   "Installing documentation.")
  189.     (set #cp_libs   "Installing libraries.")
  190.     (set #cp_locale "Installing languages.")
  191.     (set #cp_funcs  "Copying example functions.")
  192.     (set #cp_mats   "Copying example materials.")
  193.     (set #cp_lights "Copying example lightsources.")
  194.     (set #cp_datas  "Copying example datas.")
  195.     (set #cp_pals   "Copying standard colorpalettes.")
  196.     (set #cp_images "Copying toolbar images.")
  197.     (set #cp_prefs  "Copying preferences.")
  198.     (set #cp_tools  "Copying tools.")
  199.  
  200.     (set #ask_update  "Plotter3D is already installed on your system.\nYou can make an update or abort.")
  201.     (set #ask_docs    "Select the language(s) of AmigaGuide documentations you wish to install.")
  202.     (set #ask_locale  "Select the language(s) you wish to install.")
  203.     (set #ask_funcs   "Select the examples you wish to install.\n(Recommended: All)")
  204.     (set #ask_drawers "Select the drawers you wish to copy.\n(Recommended: All)")
  205.     (set #ask_others  "Select the files you wish to copy.")
  206.     (set #ask_clean1  (cat
  207.       "The file format of palettes and      \n"
  208.       "pictures has been changed. Should the\n"
  209.       "old files be deleted if they exists  \n"
  210.       "twice?                               \n"
  211.     ))
  212.     (set #ask_clean2  (cat
  213.       "The tools 'ConvertPalette' and 'ILBM2Chunky'\n"
  214.       "have been removed from the archive. Instead \n"
  215.       "More powerful tools called 'PalettesMaster' \n"
  216.       "and 'ChunkyMaster' have been included.      \n"
  217.       "Should I delete the old tools?              \n"
  218.     ))
  219.  
  220.     (set #destdir "Please select a place for the Plotter3D package. A drawer called 'Plotter3D' will be created here.")
  221.     (set #startup "Some commands will be added to your \"s:user-startup\" file.")
  222.  
  223.     (set #user_abort "Error: User abort.")
  224.     (set #copyerror  "Error: Directory/File \"%s\" is missed!.\nIt is possible that Plotter3D does not work properly after installation.")
  225.  
  226.     (set #answer_yes "Yes")
  227.     (set #answer_no  "No")
  228.  
  229.  
  230.   )
  231. )
  232.  
  233. ;##############################################################################
  234. ; start
  235. (if (< @installer-version 2752521)
  236.   (
  237.     (message #wrongversion)
  238.     (working (#installing "Installer"))
  239.     (copylib
  240.       (source "Installer")
  241.       (dest "C:")
  242.       (optional "force" "askuser")
  243.     )
  244.     (exit (quiet))
  245.   )
  246. )
  247.  
  248. ;#############################################################################
  249. ; procedure P_MakeDir
  250. ; creates a new drawer and copies the icon.
  251. ;
  252. ; #spath - source path
  253. ; #name  - name of drawer
  254.  
  255. (procedure P_MakeDir #pm_path #pm_name
  256.   (
  257.     (if (not (exists (tackon @default-dest (tackon #pm_path #pm_name)) (noreq)))
  258.       (
  259.         (makedir (tackon @default-dest (tackon #pm_path #pm_name)))
  260.       )
  261.     )
  262.     (P_CopyIcon #pm_path #pm_name @copy-help FALSE)
  263.   )
  264. )
  265.  
  266. ;##############################################################################
  267. ; procedure P_CopyDir
  268. ; copies a whole directory including all subdirectories. If an file exists
  269. ; it is not overwritten if it has an higher version.
  270. ;
  271. ; #cp_name      - name of directory
  272. ; #cp_help      - text shown during copy
  273. ; #cp_overwrite - if TRUE then files without version are overwritten
  274.  
  275. (procedure P_CopyDir #cp_name #cp_help #cp_overwrite
  276.   (
  277.     (if (exists #cp_name)
  278.       (
  279.         (working ("%s\n(%s/)" #cp_help #cp_name))
  280.         (foreach #cp_name "~(#?.info)"
  281.           (
  282.             (if (< @each-type 0)
  283.               (
  284.                 (set cd_source (tackon #cp_name @each-name))
  285.                 (set cd_dest   (tackon (tackon @default-dest #cp_name) @each-name))
  286.                 (if (exists cd_dest)
  287.                   (
  288.                     (set cd_doit FALSE)
  289.                     (set cd_version (GETVERSION cd_dest))
  290.                     (if cd_version
  291.                       (if (> (GETVERSION cd_source) cd_version) (set cd_doit TRUE))
  292.                       (if #cp_overwrite (set cd_doit TRUE))
  293.                     )
  294.                   )
  295.                   (set cd_doit TRUE)
  296.                 )
  297.                 (if cd_doit (P_CopyFile #cp_name @each-name #cp_help))
  298.               )
  299.             )
  300.           )
  301.        )
  302.       )
  303.       (if (not #v_update) (message (#copyerror #cp_name) (all)))
  304.     )
  305.   )
  306. )
  307.  
  308. ;##############################################################################
  309. ; procedure P_CopyFile
  310. ; copies a file
  311. ;
  312. ; #cf_path   - path of file
  313. ; #cf_name   - name of file
  314. ; #cf_prompt - text for prompt
  315. ;
  316. (procedure P_CopyFile #cf_path #cf_name #cf_prompt
  317.   (
  318.     (if (exists (tackon #cf_path #cf_name))
  319.       (
  320.         (copyfiles
  321.           (prompt #cf_prompt)
  322.           (help   @copyfiles-help)
  323.           (source (tackon #cf_path #cf_name))
  324.           (dest   (tackon @default-dest #cf_path))
  325.           (nogauge)
  326.         )
  327.         (P_CopyIcon #cf_path #cf_name #cf_prompt FALSE)
  328.       )
  329.       (if (not #v_update) (message (#copyerror (tackon #cf_path #cf_name)) (all)))
  330.     )
  331.   )
  332. )
  333.  
  334. ;##############################################################################
  335. ; procedure P_CopyLib
  336. ; copies a file
  337. ;
  338. ; #cl_path   - path of file
  339. ; #cl_name   - name of file
  340. ; #cl_prompt - text for prompt
  341. ;
  342. (procedure P_CopyLib #cl_path #cl_name #cl_prompt
  343.   (
  344.     (if (exists (tackon #cl_path #cl_name))
  345.       (
  346.         (copylib
  347.           (prompt #cl_prompt)
  348.           (help   @copylib-help)
  349.           (source (tackon #cl_path #cl_name))
  350.           (dest   (tackon @default-dest #cl_path))
  351.         )
  352.         (P_CopyIcon #cl_path #cl_name #cl_prompt FALSE)
  353.       )
  354.       (if (not #v_update) (message (#copyerror (tackon #cl_path #cl_name)) (all)))
  355.     )
  356.   )
  357. )
  358.  
  359.  
  360. ;##############################################################################
  361. ; procedure P_CopyIcon
  362. ; copies an icon
  363. ;
  364. ; #ci_path   - path of icon
  365. ; #ci_name   - name of icon (without .info)
  366. ; #ci_prompt - text for prompt
  367. ;
  368. (procedure P_CopyIcon #ci_path #ci_name #ci_prompt #ci_necessary
  369.   (
  370.     (set ci_file (tackon #ci_path #ci_name))
  371.     (set ci_icon (cat ci_file ".info"))
  372.  
  373.     (if (exists ci_icon)
  374.       (
  375.         (if (exists (tackon @default-dest ci_icon))
  376.           (
  377.             (iconinfo
  378.               (dest (tackon @default-dest ci_file))
  379.               (getposition "#ci_xp" "#ci_yp")
  380.             )
  381.             (copyfiles
  382.               (prompt #ci_prompt)
  383.               (help   @copyfiles-help)
  384.               (source ci_icon)
  385.               (dest   (tackon @default-dest #ci_path))
  386.               (nogauge)
  387.             )
  388.             (tooltype
  389.               (dest (tackon @default-dest ci_file))
  390.               (setposition #ci_xp #ci_yp)
  391.             )
  392.           )
  393.           (copyfiles
  394.             (prompt #ci_prompt)
  395.             (help   @copyfiles-help)
  396.             (source ci_icon)
  397.             (dest (tackon @default-dest #ci_path))
  398.             (nogauge)
  399.           )
  400.         )
  401.       )
  402.       (
  403.         (if (and #ci_necessary (not #v_update))
  404.           (message (#copyerror ci_icon) (all))
  405.         )
  406.       )
  407.     )
  408.   )
  409. )
  410.  
  411. ;##############################################################################
  412. ; procedure P_CleanDir
  413. ; Scans a directory for double files (differs only in suffix)
  414. ; 
  415. ;
  416. ; #cld_name      - name of directory
  417. ; #cld_help      - text shown during copy
  418. ; #cld_good      - suffix of good files
  419. ; #cld_bad       - suffix of bad files
  420. ;
  421. (procedure P_CleanDir #cld_name #cld_help #cld_good #cld_bad
  422.   (
  423.     (if (exists #cld_name)
  424.       (foreach #cld_name (cat "#?." #cld_good)
  425.         (if (< @each-type 0)
  426.           (
  427.             (set cld_dest
  428.               (tackon
  429.                 #cld_name
  430.                 (cat
  431.                   (substr
  432.                     @each-name
  433.                     0
  434.                     (- (strlen @each-name) (strlen #cld_good))
  435.                   )
  436.                   #cld_bad
  437.                 )
  438.               )           
  439.             )
  440.             (if (exists cld_dest) (delete cld_dest))
  441.           )
  442.         )
  443.       )
  444.     )
  445.   )
  446. )
  447.  
  448. ;(procedure P_UserAbort
  449. ;  (
  450. ;    (ABORT #user_abort)
  451. ;  )
  452. ;)
  453.  
  454.  
  455. ;##############################################################################
  456. ; global variables
  457.  
  458. (set ul_novice  0)
  459. (set ul_average 1)
  460. (set ul_expert  2)
  461.  
  462. ; last_choice contains the result of the last askoptions-call
  463. (set last_choice       0)
  464.  
  465. (set #v_update   FALSE)
  466. (set #v_partly   FALSE)
  467. (set #v_docs     -1)
  468. (set #v_locale   -1)
  469. (set #v_examples -1)
  470. (set #v_extra    -1)
  471. (set #v_others   -1)
  472.  
  473. ;##############################################################################
  474. ; check beta or update-version.
  475. (if (exists "Beta.readme")
  476.   (
  477.     (message #welcome_beta)
  478.     (set #v_partly TRUE)
  479.   )
  480.   (if (exists "Update.readme")
  481.     (
  482.       (message #welcome_update)
  483.       (set #v_partly TRUE)
  484.     )
  485.     (message #welcome_full)
  486.   )
  487. )
  488. (welcome)
  489.  
  490.  
  491. ;##############################################################################
  492. ; get destination path
  493. (if (exists "plotter3d:" (noreq))
  494.   (
  495.     (set @default-dest (expandpath "plotter3d:/"))
  496.     (set #v_update TRUE)
  497.     (if (not #v_partly)
  498.       (if (not (askbool 
  499.             (prompt  #ask_update)
  500.             (choices #update #abort)
  501.             (help    @askbool-help)
  502.           ))
  503.         (exit (quiet))
  504.       )
  505.     )
  506.   )
  507.   (if #v_partly
  508.     (
  509.       (message #error_beta)
  510.       (exit (quiet))
  511.     )
  512.     (
  513.       (set @default-dest
  514.         (askdir
  515.           (prompt  #destdir)
  516.           (help    @askdir-help)
  517.           (default @default-dest)
  518.         )
  519.       )
  520.       (set @default-dest (expandpath @default-dest))
  521.     )
  522.   )
  523. )
  524.  
  525. ;##############################################################################
  526. ; documentation
  527.  
  528. (if (>= @user-level ul_average)
  529.   (set #v_docs
  530.     (askoptions
  531.       (prompt  #ask_docs)
  532.       (default #v_docs)
  533.       (help    @askoptions-help)
  534.       (choices
  535.         "English"
  536.         "Deutsch"
  537.       )
  538.     )
  539.   )
  540. )
  541.  
  542. ;##############################################################################
  543. ; Locale
  544.  
  545. (if (>= @user-level ul_average)
  546.   (set #v_locale
  547.     (askoptions
  548.       (prompt  #ask_locale)
  549.       (default #v_locale)
  550.       (help    @askoptions-help)
  551.       (choices
  552.         "English (built-in)"
  553.         "Deutsch"
  554.         "Français"
  555.     "Español"
  556.       )
  557.     )
  558.   )
  559. )
  560.  
  561. ;##############################################################################
  562. ; examples
  563.  
  564. (if (>= @user-level ul_expert)
  565.   (set #v_examples
  566.     (askoptions
  567.       (prompt  #ask_funcs)
  568.       (default #v_examples)
  569.       (help    @askoptions-help)
  570.       (choices
  571.         "Functions"
  572.         "Materials"
  573.         "Lightsources"
  574.         "Palettes"
  575.         "Datas"
  576.       )
  577.     )
  578.   )
  579. )
  580.  
  581. ;##############################################################################
  582. ; extra
  583.  
  584. (if (>= @user-level ul_expert)
  585.   (set #v_extra
  586.     (askoptions
  587.       (prompt  #ask_drawers)
  588.       (default #v_extra)
  589.       (help    @askoptions-help)
  590.       (choices
  591.         "Imagebuttons"
  592.         "Preferences"
  593.         "Tools"
  594.       )
  595.     )
  596.   )
  597. )
  598.  
  599. ;##############################################################################
  600. ; others
  601.  
  602. (if (>= @user-level ul_average)
  603.   (set #v_others
  604.     (askoptions
  605.       (prompt  #ask_others)
  606.       (default #v_others)
  607.       (help    @askoptions-help)
  608.       (choices
  609.         "Preview picture"
  610.       )
  611.     )
  612.   )
  613. )
  614.  
  615. ;##############################################################################
  616. ; go
  617.  
  618. (complete 0)
  619.  
  620. (if (not #v_update)
  621.   (
  622.     (makedir
  623.       (tackon @default-dest "Plotter3D")
  624.       (help   @makedir-help)
  625.     )
  626.     (copyfiles
  627.       (help   @copyfiles-help)
  628.       (source "/Plotter3D.info")
  629.       (dest   @default-dest)
  630.     )
  631.     (tooltype
  632.       (dest (tackon @default-dest "Plotter3D"))
  633.       (noposition)
  634.     )
  635.   )
  636. )
  637. (complete 10)
  638.  
  639. (set @default-dest (tackon @default-dest "Plotter3D"))
  640.  
  641. ;##############################################################################
  642. ; copy Main Program
  643.  
  644. ;(copylib
  645. ;  (prompt #cp_main)
  646. ;  (help   @copylib-help)
  647. ;  (source "Plotter3D")
  648. ;  (dest   @default-dest)
  649. ;)
  650. ;(P_CopyIcon "" "Plotter3D" #cp_main TRUE)
  651. (P_CopyLib "" "Plotter3D" #cp_main)
  652.  
  653.  
  654. (P_MakeDir "" "Libs")
  655. (P_CopyDir "Libs" #cp_libs TRUE)
  656. (P_MakeDir "Libs" "Dither")
  657. (P_CopyDir "Libs/Dither" #cp_libs TRUE)
  658.  
  659. (complete 20)
  660.  
  661. ;##############################################################################
  662. ; copy documentation
  663.  
  664. (P_MakeDir "" "Docs")
  665. (P_CopyFile "Docs" "History" #cp_docs)
  666. (P_CopyFile "Docs" "Bugs"    #cp_docs)
  667. (P_CopyFile "Docs" "ToDo"    #cp_docs)
  668.  
  669. (if (IN #v_docs 0) ( (P_MakeDir "Docs" "English") (P_CopyDir "Docs/English" #cp_docs TRUE)))
  670. (if (IN #v_docs 1) ( (P_MakeDir "Docs" "Deutsch") (P_CopyDir "Docs/Deutsch" #cp_docs TRUE)))
  671.  
  672. (complete 30)
  673.  
  674. ;##############################################################################
  675. ; copy Locale
  676.  
  677. (if (> #v_locale 1)
  678.   (
  679.     (makedir (tackon @default-dest "Catalogs"))
  680.     (if (IN #v_locale 1) ( (P_CopyDir "Catalogs/Deutsch"  #cp_locale TRUE) ))
  681.     (if (IN #v_locale 2) ( (P_CopyDir "Catalogs/Français" #cp_locale TRUE) ))
  682.     (if (IN #v_locale 3) ( (P_CopyDir "Catalogs/Español" #cp_locale TRUE) ))
  683.   )
  684. )
  685. (complete 40)
  686.  
  687. ;##############################################################################
  688. ; install functions etc.
  689.  
  690. (if (IN #v_examples 0) ( (P_MakeDir "" "Functions") (P_CopyDir "Functions" #cp_funcs  TRUE)))
  691. (if (IN #v_examples 1) ( (P_MakeDir "" "Materials") (P_CopyDir "Materials" #cp_mats   FALSE)))
  692. (if (IN #v_examples 2) ( (P_MakeDir "" "Lights"   ) (P_CopyDir "Lights"    #cp_lights FALSE)))
  693. (if (IN #v_examples 3) ( (P_MakeDir "" "Palettes" ) (P_CopyDir "Palettes"  #cp_pals   FALSE)))
  694. (if (IN #v_examples 4) ( (P_MakeDir "" "Datas"    ) (P_CopyDir "Datas"     #cp_datas  FALSE)))
  695.  
  696. (complete 50)
  697.  
  698. ;##############################################################################
  699. ; copy extra drawers
  700.  
  701. (if (IN #v_extra 0) ( (P_MakeDir "" "Images") (P_CopyDir "Images" #cp_images TRUE)))
  702. (if (IN #v_extra 1) ( (P_MakeDir "" "Prefs" ) (P_CopyDir "Prefs"  #cp_prefs FALSE)))
  703. (if (IN #v_extra 2) ( (P_MakeDir "" "Tools" ) (P_CopyDir "Tools"  #cp_tools TRUE)))
  704.  
  705. (complete 60)
  706.  
  707. ;##############################################################################
  708. ; copy other datas
  709.  
  710. (if (IN #v_others 0) (P_CopyFile "" "PreviewPic" @copyfiles-help))
  711.  
  712. (complete 80)
  713.  
  714. ;##############################################################################
  715. ; Cleanup 1
  716.  
  717. (if #v_update
  718.   (if (>= @user-level ul_expert)
  719.     (if (askbool
  720.           (prompt  #ask_clean1)
  721.           (help    @askbool-help)
  722.           (choices
  723.             #answer_yes
  724.             #answer_no
  725.           )
  726.         )
  727.       (
  728.         ; remove double palettes
  729.         (P_CleanDir (tackon @default-dest "Palettes") #cleaning "cpal" "pal256") 
  730.         ; remove double pictures
  731.         (P_CleanDir (tackon @default-dest "Datas") #cleaning "ciff" "chunky") 
  732.         (P_CleanDir (tackon @default-dest "Datas") #cleaning "ciff" "pal256") 
  733.       )
  734.     )
  735.   )
  736. )
  737.  
  738. (complete 87)
  739.  
  740. ;##############################################################################
  741. ; Cleanup 2
  742.  
  743. (if #v_update
  744.   (if (>= @user-level ul_expert)
  745.     (if (askbool
  746.           (prompt  #ask_clean2)
  747.           (help    @askbool-help)
  748.           (choices
  749.             #answer_yes
  750.             #answer_no
  751.           )
  752.         )
  753.       (
  754.         (delete (tackon @default-dest "Tools/ConvertPalette") 
  755.            (infos)
  756.         )
  757.         (delete (tackon @default-dest "Tools/ILBM2Chunky") 
  758.            (infos)
  759.         )
  760.       )
  761.     )
  762.   )
  763. )
  764.  
  765. (complete 95)
  766.  
  767. ;##############################################################################
  768. ; startup-sequence
  769.  
  770. (if (not #v_update)
  771.   (startup "Plotter3D"
  772.     (prompt  #startup)
  773.     (help    @startup-help)
  774.     (command "assign Plotter3D: \"" @default-dest "\"")
  775.     (confirm "expert")
  776.   )
  777. )
  778.  
  779. (makeassign "Plotter3D" @default-dest)
  780.  
  781. (complete 100)
  782.